home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / archive / userbox / publicdomain / alcuin.lha / alcuin / install / Install Alcuin < prev   
Text File  |  1996-05-14  |  11KB  |  343 lines
  1. ; -------------------------------------------------------------------------
  2. ; $VER: Alcuin-Install 1.0 (28.1.96)
  3. ;
  4. ; Installer-Script for Alcuin V1.0
  5. ; Copyright © 1996 by Stephan Schupfer
  6.  
  7.  
  8. ;================================= ENGLISH ==================================
  9.  
  10. (set #install-start
  11.     (cat
  12.         "\nWelcome to the Alcuin installation utility!\n\n"
  13.         "This script installs Alcuin on your Amiga.\n"
  14.         "Alcuin is SHAREWARE. Using it means registering.\n"
  15.         "Read the docs for more info.\n\n"
  16.         "© 1996 by Stephan Schupfer\n"
  17.         "All rights reserved\n"
  18.         )
  19.     )
  20. (set #install-exit
  21.     (cat
  22.         "Thank you for installing Alcuin ...\n"
  23.         "... and remember: don't forget to register."
  24.         )
  25.     )
  26. (set #bad-kick "You must be using Kickstart 2.0 or higher to install Alcuin\n\n\n")
  27. (set #Alcuin-dir "\nWhere would you like to copy the Alcuin directory?")
  28. (set #Alcuin-icons "\nInstall what style of icons?")
  29. (set #Alcuin-docs "\nSelect documentation")
  30. (set #Alcuin-doc "\nInstall documentation")
  31. (set #Alcuin-fonts "\nInstall fonts")
  32. (set #Alcuin-cats "\nSelect catalog")
  33. (set #Alcuin-cat "\nInstall catalog")
  34. (set #Alcuin-icon "\nInstall MWB-icons")
  35. (set #Alcuin-c "\nInstall utilities")
  36. (set #Alcuin-startup "\nDo you want Installer to make the required changes to your s:user-startup script ?")
  37. (set #Copy-main "\nInstall Alcuin main")
  38. (set #Copy-docs "\nInstall Alcuin Docs")
  39. (set #icons-help "This option is for people that have installed MagicWB.\n\nInstead of copying MagicWB icons over the original icons, you may select MagicWB here, and a special set of icons, especially designed for Alcuin will be installed.\n\nNOTE: MagicWB is Copyright © 1992-1994 by Martin Huttenloher.")
  40. (set #docs-help "Alcuin documentation:\n\n * Documentation in AmigaGuide format.\n   Read this document for more information about\n   Alcuin\n * Orderform\n   Use this to register Alcuin.")
  41. (set #cat-help "The default language of Alcuin is english. So if you don't install any catalog file, you can use Alcuin in english.\n\nUnfortunately there is only one language available at the moment. But this will (hopefully) change in future versions.")
  42. (set #startup-help "Alcuin requires some additions to your s:user-startup script, that Installer is about to make.")
  43. (set #text-main "\nDo you want to install Alcuin main file?")
  44. (set #text-docs "\nDo you want to install Alcuin documentation files?")
  45. (set #text-font "\nDo you want to install Alcuin font files?")
  46. (set #text-cat "\nDo you want to install Alcuin catalog files?")
  47. (set #text-icon "\nDo you want to install Alcuin icons?")
  48. (set #text-util "\nDo you want to install Alcuin utilities?")
  49. (set #imain-help "This installs the Alcuin main programm.")
  50. (set #idocs-help "This installs the documentation files, which we recommend to study.")
  51. (set #ifont-help "For proper function, Alcuin need some font files.")
  52. (set #icat-help "Here you can select some other languages than the programmed english language.")
  53. (set #iicon-help "If you have selected MWB-Icons, they will be installed here")
  54. (set #iutil-help "The utilities are necessary for creating the ROM image and the card files.")
  55. (set default_language 1)
  56.  
  57. ;===[ German Documentation ]=================================================
  58.  
  59. (if (= @language "deutsch")
  60.     (
  61.     (set #install-start
  62.         (cat
  63.             "\nWillkommen zur Alcuin Installation\n\n"
  64.             "Es wird nun Alcuin auf Ihrem Amiga installiert.\n"
  65.             "Alcuin ist SHAREWARE. Lassen Sie sich registrieren.\n"
  66.             "Für weitere Informationen lesen Sie bitte die Anleitung\n\n"
  67.             "© 1996 by Stephan Schupfer\n"
  68.             "All rights reserved\n"
  69.             )
  70.         )
  71.     (set #install-exit
  72.         (cat
  73.             "Danke, daß Sie Alcuin installiert haben ...\n"
  74.             "... vergessen Sie nicht, sich registrieren zu lassen."
  75.             )
  76.         )
  77.     (set #bad-kick "Sie müssen Kickstart 2.0 oder höher verwenden um Alcuin zu installieren\n\n\n")
  78.     (set #Alcuin-dir "\nWohin soll das Verzeichnis Alcuin kopiert werden?")
  79.     (set #Alcuin-icons "\nWelches Aussehen der Icons wünschen Sie?")
  80.     (set #Alcuin-docs "\nWelche Dokumentation wünschen Sie?")
  81.     (set #Alcuin-doc "\ninstalliere Dokumentation")
  82.     (set #Alcuin-fonts "\ninstalliere Fonts")
  83.     (set #Alcuin-cats "\nWelche catalog Dateien wünschen Sie?")
  84.     (set #Alcuin-cat "\ninstalliere catalog Dateien")
  85.     (set #Alcuin-icon "\ninstalliere MWB-icons")
  86.     (set #Alcuin-c "\ninstalliere utilities")
  87.     (set #Alcuin-startup "\nSoll der Installer sie notwendigen Änderungen in Ihrer s:user-startup Datei vornehmen?")
  88.     (set #Copy-main "\ninstalliere Alcuin Hauptprogramm")
  89.     (set #Copy-docs "\ninstalliere Alcuin Dokumention")
  90.     (set #icons-help "Diese Option ist für Leute, welche MagicWB installiert haben.\n\nAnstelle die MagicWB Icons später über die original Icons zu kopieren, können Sie hier auswählen welche Icons Sie installieren möchten.\n\nNOTE: MagicWB is Copyright © 1992-1994 by Martin Huttenloher.")
  91.     (set #docs-help "Die Dokumentation von Alcuin:\n\n * Dokumentation im AmigaGuide format.\n   Für mehr Informationen über Alcuin, bitte lesen\n   Sie hier nach.\n * Bestellformular\n   Verwenden Sie dieses Formular um sich für Alcuin\n   registrieren zu lassen.")
  92.     (set #cat-help "Alcuin ist in Englisch programmiert. Sollten Sie eine andere Sprache bevorzugen so können Sie hier eine entsprechende catalog Datei auswählen.\n\nLeider ist momentan nur eine weiter Sprache zur Auswahl vorhanden, was sich aber in Zukunft ändern wird (soll).")
  93.     (set #startup-help "Alcuin benötigt einige Zusätze zu Ihrer s:user-startup Datei, welche der Installer nun vornehmen kann.")
  94.     (set #text-main "\nWollen Sie die Alcuin Hauptdatei installieren?")
  95.     (set #text-docs "\nWollen Sie die Alcuin Dokumentation installieren?")
  96.     (set #text-font "\nWollen Sie die Alcuin Fonts installieren?")
  97.     (set #text-cat "\nWollen Sie die Alcuin Catalogdateien installieren?")
  98.     (set #text-icon "\nWollen Sie die Alcuin Icons installieren?")
  99.     (set #text-util "\nWollen Sie die Alcuin Utilities installieren?")
  100.     (set #imain-help "Hier wird das Programm Alcuin installiert.")
  101.     (set #idocs-help "Hier wird die Dokumentation, deren Studium Ihnen empfohlen wird, installiert.")
  102.     (set #ifont-help "Zum Betrieb von Alcuin sind eigene Zeichensätze notwendig, die hier installiert werden.")
  103.     (set #icat-help "Hier können Sie andere Sprachen, als die einprogrammierte, englische Sprache auswählen.")
  104.     (set #iicon-help "Sollten Sie MWB-Icons gewählt haben, werden hier die notwendigen Icondateien überschrieben.")
  105.     (set #iutil-help "Die Utilities sind Programme, die zur Erstellung der ROM Datei, und zur Erzeugung der Einsteckkarten Dateien notwendig sind.")
  106.     (set default_language 2)
  107.     )
  108. )
  109.  
  110. ;============================== VARS ================================
  111. (set sPath (expandpath (pathonly @icon)))
  112. (set sourcePath (cat sPath "//"))
  113.  
  114. ;============================== PROGRAM-START================================
  115.  
  116. (complete 0)
  117. (set @default-dest "")
  118. ; Check Kickstart (>= v2.0) Version.
  119. (if (< (/ (getversion) 65536) 37)
  120.     (abort #bad-kick)
  121. )
  122. (message #install-start)
  123.  
  124. (welcome)
  125.  
  126. ;Ask for directory
  127. (set m-dest (askdir (prompt #Alcuin-dir)
  128.     (help @askdir-help)
  129.     (default "SYS:")
  130.     )
  131. )
  132. ; Ask for style of icons
  133. (set icons (askchoice (prompt #Alcuin-icons)
  134.            (help #icons-help)
  135.            (choices "Original Workbench" "MagicWB")
  136.            (default 0)
  137.            )
  138. )
  139. (procedure install-main
  140. ; Install Alcuin main
  141. (makedir (tackon m-dest "Alcuin") (infos))
  142. (set main-dest (cat m-dest "Alcuin/"))
  143. (copyfiles (source (tackon sourcePath "Alcuin"))
  144.     (prompt #Copy-main)
  145.     (dest main-dest)
  146.     (infos)
  147.     )
  148. (if (= icons 1)
  149.     (copyfiles (source (tackon sourcePath "MWBIcons/Alcuin.info"))
  150.         (dest main-dest)
  151.         (newname "Alcuin.info")
  152.         )
  153.     )
  154. )
  155. (if (< @user-level 2)
  156.     (install-main)
  157.     (if (askbool 
  158.         (prompt #text-main)
  159.         (help #imain-help)
  160.         )
  161.         (install-main)
  162.         )
  163.     )
  164. (complete 20)
  165. (procedure install-docs
  166. ; Install Alcuin Docs
  167. (set docum (askoptions (prompt #Alcuin-docs)
  168.     (help #docs-help)
  169.     (choices "English"
  170.              "Deutsch")
  171.     (default default_language)
  172.     )
  173. )
  174. (set n 0)
  175. (while (set docu (select n "English"
  176.                            "Deutsch"
  177.                            ""))
  178. (
  179.     (if (in docum n)
  180.         (
  181.             (makedir (cat main-dest "Docs") (infos) (prompt #Alcuin-doc))
  182.             (makedir (cat main-dest (cat "Docs/" docu)))
  183.             (copyfiles (source (tackon sourcePath (cat "Docs/" docu )))
  184.                 (dest (cat main-dest (cat "Docs/" docu)))
  185.                 (infos)
  186.                 (all)
  187.                 )
  188.             (if (= icons 1)
  189.                 (copyfiles (source (tackon sourcePath (cat "MWBIcons/Docs/" docu )))
  190.                     (dest (cat main-dest (cat "Docs/" docu)))
  191.                     (infos)
  192.                     (all)
  193.                     )
  194.                 )
  195.         )
  196.     )
  197.     (set n (+ n 1))
  198.     )
  199. )
  200. )
  201. (if (< @user-level 2)
  202.     (install-docs)
  203.     (if (askbool 
  204.         (prompt #text-docs)
  205.         (help #idocs-help)
  206.         )
  207.         (install-docs)
  208.         )
  209.     )
  210. (complete 40)
  211. ; Install Alcuin Fonts
  212. (procedure install-font
  213. (copyfiles (source (tackon sourcePath "fonts"))
  214.     (prompt #Alcuin-fonts)
  215.     (dest "FONTS:")
  216.     (all)
  217.     (noposition)
  218.     )
  219. )
  220. (if (< @user-level 2)
  221.     (install-font)
  222.     (if (askbool 
  223.         (prompt #text-font)
  224.         (help #ifont-help)
  225.         )
  226.         (install-font)
  227.         )
  228.     )
  229. (complete 60)
  230. ; Install Alcuin catalog
  231. (procedure install-catalog
  232. (set a (- default_language 1))
  233. (set catalogs (askoptions (prompt #Alcuin-cats)
  234.     (help #cat-help)
  235.     (choices "Deutsch"
  236.              )
  237.     (default a)
  238.     )
  239. )
  240. (set n 0)
  241. (while (set catalog (select n "Deutsch"
  242.                               ""))
  243.     (
  244.     (if (in catalogs n)
  245.         (
  246.             (copyfiles (source (tackon sourcePath (tackon "Catalogs" (tackon catalog "Alcuin.catalog"))))
  247.                 (prompt #Alcuin-cat)
  248.                 (dest (cat "LOCALE:Catalogs/" catalog))
  249.                 (noposition)
  250.                 )
  251.         )
  252.     )
  253.     (set n (+ n 1))
  254.     )
  255. )
  256. )
  257. (if (< @user-level 2)
  258.     (install-catalog)
  259.     (if (askbool 
  260.         (prompt #text-cat)
  261.         (help #icat-help)
  262.         )
  263.         (install-catalog)
  264.         )
  265.     )
  266. (complete 80)
  267. (procedure install-icons
  268. ; Install Alcuin icons
  269. (if (= icons 1)
  270.     (
  271.     (copyfiles (source (tackon sourcePath "MWBIcons/Alcuin_Port1.info" ))
  272.         (prompt #Alcuin-icon)
  273.         (dest main-dest)
  274.         (infos)
  275.         )
  276.     (copyfiles (source (tackon sourcePath "MWBIcons/Alcuin_Port2.info" ))
  277.         (dest main-dest)
  278.         (infos)
  279.         )
  280.     (copyfiles (source (tackon sourcePath "MWBIcons/Alcuin_RAM.info" ))
  281.         (dest main-dest)
  282.         (infos)
  283.         )
  284.     (copyfiles (source (tackon sourcePath "MWBIcons/Alcuin_ROM.info" ))
  285.         (dest main-dest)
  286.         (infos)
  287.         )
  288.     (copyfiles (source (tackon sourcePath "MWBIcons/Alcuin_State.info" ))
  289.         (dest main-dest)
  290.         (infos)
  291.         )
  292.     )
  293. )
  294. )
  295. (if (< @user-level 2)
  296.     (install-icons)
  297.     (if (askbool 
  298.         (prompt #text-icon)
  299.         (help #iicon-help)
  300.         )
  301.         (install-icons)
  302.         )
  303.     )
  304. (complete 85)
  305. (procedure install-utils
  306. ; Install Alcuin Utilities
  307. (makedir (cat main-dest "c") (prompt #Alcuin-c))
  308. (copyfiles (source (tackon sourcePath "c"))
  309.     (dest (cat main-dest "c"))
  310.     (noposition)
  311.     (all)
  312.     )
  313. )
  314. (if (< @user-level 2)
  315.     (install-utils)
  316.     (if (askbool 
  317.         (prompt #text-util)
  318.         (help #iutil-help)
  319.         )
  320.         (install-utils)
  321.         )
  322.     )
  323. (complete 95)
  324. ; Add to startup
  325. (set startup-addition 
  326.     (cat
  327.         "assign Alcuin: \"" main-dest "\"\n"
  328.         "path Alcuin:c add\n"
  329.     )
  330. )
  331. (if (askbool 
  332.     (prompt #Alcuin-startup)
  333.     (help #startup-help)
  334.     )
  335.     (startup @app-name
  336.         (command startup-addition)
  337.         (prompt #Alcuin-startup)
  338.         (help #startup-help)
  339.         )
  340. )
  341. (complete 100)
  342. (exit #install-exit)
  343.